home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Visio 2000 Information.xpl < prev    next >
Text File  |  2000-10-01  |  1KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
  5. "NAME"="Visio 2000 Information"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="User"
  9. "TEXT 2"="Company"
  10. "TEXT 3"="Version"
  11. "TEXT 4"="Product ID"
  12. "TEXT 5"="Registered Key"
  13. "DESCRIPTION 1"="Plugin displays Visio 2000 user and program registered information."
  14. "DESCRIPTION 2"="NOTE: Information only; no changes possible."
  15. "AUTHOR"="Ojatex@aol.com"
  16. "CONTACTURL"="http://members.aol.com/ojatex/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
  19. "COMMENT 2"="Thanks to CptSiskoX for settings."
  20.  
  21. sP="HKLM\SOFTWARE\Visio\Visio 2000\"
  22. sV1="RegisteredOwner"
  23. sV2="RegisteredOrganization"
  24. sV3="CurrentlyRegisteredVersion"
  25. sV4="ProductID"
  26. sV5="RegisteredPKey"
  27.  
  28. SUB Plugin_Initialize
  29.  
  30.  
  31.     s=RegReadValue(sP & sV1)
  32.     Call SetUIElement(1,s)
  33.  
  34.     s=RegReadValue(sP & sV2)
  35.     Call SetUIElement(2,s)
  36.  
  37.     s=RegReadValue(sP & sV3)
  38.     Call SetUIElement(3,s)
  39.  
  40.     s=RegReadValue(sP & sV4)
  41.     Call SetUIElement(4,s)
  42.  
  43.     s=RegReadValue(sP & sV5)
  44.     Call SetUIElement(5,s)
  45.  
  46.  
  47. ' end if
  48.  
  49.  
  50.  Call Disable 
  51. END SUB
  52.  
  53. SUB Plugin_CheckData(ElementIndex)
  54. END SUB
  55.  
  56. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  57. END SUB
  58.  
  59. SUB Plugin_Terminate
  60. END SUB
  61.